home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Communication / System-X / SX / Developer / HBasic2 / Example.BAS < prev   
Encoding:
BASIC Source File  |  1998-06-24  |  1.7 KB  |  73 lines
  1. '
  2. ' SYSTEM-X Door Written in HBasic2!!
  3. '
  4.  
  5. REM $NOWINDOW
  6.  
  7. LIBRARY DECLARE "AEDoor.library"
  8. DECLARE FUNCTION CreateComm& LIBRARY
  9. DECLARE SUB DeleteComm& LIBRARY
  10. DECLARE SUB WriteStr& LIBRARY
  11. DECLARE FUNCTION HotKey& LIBRARY
  12. DECLARE FUNCTION Prompt& LIBRARY
  13. DECLARE FUNCTION GetString& LIBRARY
  14. DECLARE FUNCTION GetData& LIBRARY
  15. DECLARE SUB SendStrCmd& LIBRARY
  16. DECLARE SUB SendStrDataCmd& LIBRARY
  17. LIBRARY OPEN "AEDoor.library",2
  18.  
  19. cr$=CHR$(13)+CHR$(10)
  20. DIM SHARED dif&,SX
  21. ON ERROR GOTO exitt
  22.  
  23. IF COMMAND$="" OR VAL(COMMAND$)=0 THEN skip
  24. dif& = CreateComm&(0)
  25. skip:IF dif& = 0 THEN ?"This program requires AmiExpress BBS Software.":END
  26. strf& = GetString(dif&)
  27. IF PEEK$(strf&) = "SX" THEN SX=1 ELSE SX=0
  28.  
  29. '#######################################################################
  30. '-- START --------------------------------------------------------------
  31. '#######################################################################
  32.  
  33. IF SX
  34.     PS cr$+"This door is running Under SYSTEM-X!"+cr$+cr$
  35. ELSE
  36.     PS cr$+"This door is running Under AmiExpress!"+cr$+cr$
  37. END IF
  38.  
  39. PS "Testing testing!!.."+cr$+cr$
  40.  
  41. PS "Enter some text: "
  42. InputMsg st$,25
  43.  
  44. PS "You entered: "+st$+cr$+cr$
  45.  
  46.  
  47. '#######################################################################
  48. '-- END ----------------------------------------------------------------
  49. '#######################################################################
  50.  
  51. exitt:
  52. DeleteComm& dif&
  53. SYSTEM
  54.  
  55. SUB PS (st$)
  56.     IF SX
  57.         SendStrDataCmd& dif&, 1500, 0, SADD(st$+CHR$(0))
  58.     ELSE
  59.         WriteStr& dif&,SADD(st$+CHR$(0)),2
  60.     END IF
  61.     END SUB
  62.  
  63. SUB Hot(s&)
  64.     s& = HotKey&(dif&,SADD(CHR$(0)))
  65.     IF s& = -1 THEN exitt
  66.     END SUB
  67.  
  68. SUB InputMsg (st$,l%)
  69.     x& = Prompt&(dif&,l%,SADD(CHR$(0)))
  70.     IF x& = 0 THEN exitt
  71.     st$ = PEEK$(x&)
  72.     END SUB
  73.